home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr48 / pasclern.zip / INTVAR.PAS < prev    next >
Pascal/Delphi Source File  |  1993-04-01  |  260b  |  14 lines

  1. PROGRAM integer_variable_demo;
  2.  
  3. VAR count     : INTEGER;
  4.     x,y       : INTEGER;
  5.  
  6. BEGIN
  7.   x := 12;
  8.   y := 13;
  9.   count := x + y;
  10.   WRITELN('The value of x is',x:4);
  11.   WRITELN('The value of y is',y:5);
  12.   WRITELN('And count is now ',count:6);
  13. end.
  14.